home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 024 - Big U Macroworks.dsk / FOREIGN.bas < prev    next >
BASIC Source File  |  2019-02-16  |  3KB  |  46 lines
  1. 5  PRINT  CHR$(21): TEXT : HOME :D$ =  CHR$(4):Q$ =  CHR$(34)
  2. 20  DIM N(5,13): FOR X = 0 TO 5: FOR I = 0 TO 13: READ N(X,I): NEXT : NEXT 
  3. 40  HOME : PRINT : PRINT "This program modifies MACRO.SYSTEM to   work with some foreign versions of      AppleWorks.": PRINT 
  4. 50  PRINT "The other MacroWorks options like changeerror buzz are not made compatible; onlythe macros themselves are allowed.": PRINT 
  5. 60  PRINT "1 - English 11/28/83 and Spanish 1.2"
  6. 70  PRINT "2 - French 1.2 and French 1.3"
  7. 75  PRINT "3 - German 1.2 and German 1.3"
  8. 85  PRINT "4 - Quit, Quitter, Beenden, Abandonar": PRINT 
  9. 90  PRINT "Select one of the above: ";
  10. 100  GET X$: IF X$ = "4"  THEN  HOME : END 
  11. 110  IF X$ <"1"  OR X$ >"3"  THEN 100
  12. 115  PRINT X$:X = 2 *( VAL(X$) -1): REM  0, 2, 4
  13. 120  PRINT  CHR$(4)"BLOAD MACRO.SYSTEM,TSYS,A$2000":VER =  PEEK(8199)
  14. 130 AD = 9148:ID = 8740:TM = 9601: IF VER = 21  THEN AD = 9214:ID = 8806:TM = 9880
  15. 133  POKE TM,N(X,0): POKE TM +4,N(X,0) +32: POKE ID,N(X,1)
  16. 140  FOR I = 0 TO 11: POKE AD +I,N(X,I +2):: NEXT 
  17. 142  REM  Modify for two at a time
  18. 144  POKE TM,N(X +1,0): POKE TM +4,N(X +1,0) +32
  19. 145  POKE ID +14,N(X +1,1)
  20. 147  FOR I = 0 TO 11: POKE AD +12 +I,N(X +1,I +2): NEXT 
  21. 150  PRINT  CHR$(4)"BSAVE MACRO.SYSTEM,TSYS,A$2000"
  22. 160  HOME : PRINT : PRINT "You may now install MACRO.SYSTEM on yourAppleWorks disk. MACROS.AWP will need tobe recompiled after the macros have beenchanged to reflect your language's      AppleWorks commands.": PRINT 
  23. 162  IF X$ = "1"  THEN  PRINT "All occurrences of the OA-X command": PRINT "(mouse and macros) have been changed to": PRINT "OA-] for the Spanish version."
  24. 165  IF X$ = "2"  THEN  PRINT "All occurrences of the OA-X command": PRINT "(mouse and macros) have been changed to": PRINT "OA-W for the French version."
  25. 170  IF X$ = "2"  THEN  PRINT : PRINT "Type "Q$"-FRENCH.BYE"Q$" to customize ProDOS."
  26. 175  IF X$ = "3"  THEN  PRINT "All occurrences of the OA-X command": PRINT "(mouse and macros) have been changed to": PRINT "OA-] for the German version.": PRINT : PRINT "See MACROS.GERMAN for translated macros."
  27. 176  PRINT : PRINT "Press any key ";: GET X$: GOTO 40
  28. 195  REM <CTRL-M><CTRL-M>TEMP MACRO CMD,ID BYTE,ADDRESS TABLES<CTRL-M>
  29. 199  REM  ENGLISH 11/28/83
  30. 200  DATA  216 :OA -X
  31. 210  DATA  162,114,46,16,47,145,17,104,30,105,30,62,36
  32. 299  REM  SPANISH 1.2
  33. 300  DATA  221: REM  OA command not used by AppleWorks
  34. 310  DATA  246,40,47,187,47,119,17,30,31,31,31,33,36
  35. 399  REM  FRENCH 1.2
  36. 400  DATA  215: REM 
  37. 410  DATA  31,55,47,202,47,119,17,45,31,46,31,23,36
  38. 499  REM  FRENCH 1.3
  39. 500  DATA  215: REM 
  40. 510  DATA  192,47,47,194,47,122,17,37,31,38,31,21,36
  41. 599  REM  GERMAN 1.2
  42. 600  DATA   221: REM   OA-X replacement
  43. 610  DATA   169,4,47,151,47,119,17,250,30,251,30,25,36 
  44. 699  REM  GERMAN 1.3
  45. 700  DATA   221: REM 
  46. 710  DATA   1,9,47,156,47,122,17,255,30,0,31,36,36